home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 May / 64er_Magazin_85-05_1985_Markt__Technik_de.d64 / 6510 i (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  26KB  |  719 lines
  1. 100 rem  ******************************
  2. 110 rem  *            6510            *
  3. 120 rem  ******************************
  4. 130 rem  *     (c) copyright 1984     *
  5. 140 rem  * harald beine & arne jansen *
  6. 150 rem  *  schoettelkotter  damm 13  *
  7. 160 rem  *         4432   gronau      *
  8. 170 rem  *>tausch von c-64 programmen<*
  9. 180 rem  ******************************
  10. 190 rem
  11. 200 rem  ******************************
  12. 210 rem  *       steuerzeichen        *
  13. 220 rem  *  ------------------------  *
  14. 230 rem  *  "[147]"  =  shift + clr/home  *
  15. 240 rem  *  ""  =  clr/home          *
  16. 250 rem  *  ""  =  crsr down         *
  17. 260 rem  *  ""  =  ctrl  + 2         *
  18. 270 rem  *  ""  =  ctrl  + 3         *
  19. 280 rem  *  "[159]"  =  ctrl  + 4         *
  20. 290 rem  *  "[156]"  =  ctrl  + 5         *
  21. 300 rem  *  ""  =  ctrl  + 6         *
  22. 310 rem  *  ""  =  ctrl  + 7         *
  23. 320 rem  *  "[158]"  =  ctrl  + 8         *
  24. 330 rem  *  ""  =  ctrl  + 9         *
  25. 340 rem  *  "[129]"  =  c=    + 1         *
  26. 350 rem  *  "[154]"  =  c=    + 7         *
  27. 360 rem  ******************************
  28. 370 rem
  29. 380 poke56,126:clr:poke251,0
  30. 390 r=1:ls=1:sh=3:mu=1:sp=100:ms= 5:fs=1:of=0:le=1
  31. 400 ri=0:co=0:ck=1:v=53248:si=54272
  32. 410 pokesi+12,71:pokesi+13,25:pokesi+11,0
  33. 420 fori=0to17:reada:poke52736+i,a:next
  34. 430 sys52736:pokesi+24,0:pokev+21,0
  35. 440 pokev+48,0:pokev+17,155:pokev+16,0
  36. 450 pokev+32,0:pokev+33,0
  37. 460 cx= 0:cy=10:gosub3120
  38. 470 printchr$(14)chr$(8)
  39. 480 print"[147]                                        ";
  40. 490 print" [194]itte 22 [211]ek. [199]eduld !!  [204]ese [196]aten !! ";
  41. 500 print"                                        "
  42. 510 x=248:y=249
  43. 520 rem daten einlesen
  44. 530 fori=832to832+33:reada:pokei,a:next
  45. 540 sys832
  46. 550 fort=0to62:reada:poke61440+t,a:next
  47. 560 fort=0to62:reada:poke61504+t,a:next
  48. 570 fort=0to62:reada:poke61568+t,a:next
  49. 580 fort=0to62:poke61696+t,0:next
  50. 590 fort=0to62step3:poke61696+t,60:next
  51. 600 fort=0to62:reada:poke61760+t,a:next
  52. 610 fort=0to62:reada:poke61824+t,a:next
  53. 620 fort=0to62:reada:poke61888+t,a:next
  54. 630 fort=0to62:reada:poke61952+t,a:next
  55. 640 fori=0to25:reada:b$=b$+chr$(a):next
  56. 650 foran=0to18:fori=0to7
  57. 660 reada:poke59392+i+8*an,a
  58. 670 nexti:nextan
  59. 680 poke56334,peek(56334)and254:poke1,peek(1)and251
  60. 690 fora=0to7:poke59552+a,peek(54088+a):next
  61. 700 fora=0to7:poke59560+a,peek(55112+a):next
  62. 710 fora=0to7:poke59568+a,peek(54008+a):next
  63. 720 fora=0to7:poke59544+a,peek(55032+a):next
  64. 730 poke1,peek(1)or4:poke56334,peek(56334)or1
  65. 740 fori=32768to33229:reada:pokei,a:next
  66. 750 fori=36600to36863:pokei,0:next
  67. 760 fori=0to255:reada:poke50432+i,a:reada
  68. 770 poke50688+i,a:next
  69. 780 fori=0to117:reada:poke828+i,a:next:
  70. 790 fori=0to15:reada:poke704+i,a:next
  71. 800 iff=1thenend:rem wenn fehler in data,dann ende
  72. 810 poke770,704and255:poke771,704/256
  73. 820 pokev+24,11:poke56576,peek(56576)and252:poke648,192
  74. 830 gosub3190:print"[147][154]":pokesi+24,0
  75. 840 print"lpllpllopqllllolqopqolqolopllopqopollopl";
  76. 850 print"abfeabeabfefababfeabfeabeffeabffabfeabfe";
  77. 860 print"cd  cd      cd    cd  cd    cd      cd  ";
  78. 870 print:print
  79. 880 print"gh      gh  gh  gh    gh    gh    gh    ";
  80. 890 print"ij@ij k ijghijnjij    ij@ij@ijkij@ijkijk";
  81. 900 print"lpllpllopqllllolqb    aolopllopqopollopl";
  82. 910 ifco=1then990
  83. 920 c=0:pokev+21,3:pokev+1,80:pokev+3,80:pokev+5,80
  84. 930 print"[158]":fori=1to3:readaw,ew,sw,s1,s2:gosub1560
  85. 940 next:fori=104to245
  86. 950 pokev+0,i+6:pokev+2,i+6
  87. 960 ifi>=104andi=(int(i/8))*8andc<=13thengosub3370
  88. 970 next:print:gosub3390
  89. 980 fori=1to2:readaw,ew,sw,s1,s2:gosub1560:next
  90. 990 ifco=0then1030
  91. 1000 pokev+0,172:pokev+1,80:pokev+2,172:pokev+3,80
  92. 1010 print""tab(14)"[158]"a$
  93. 1020 gosub3390
  94. 1030 cx=0: cy=16:gosub3120
  95. 1040 rem      f       gravitation       normal
  96. 1050 print"[152] [198]1    : [199][210][193][214][201][212][193][212][201][207][206]    :  [206][207][210][205][193][204]  "
  97. 1060 rem    f       laser speed       normal
  98. 1070 print" [198]3    : [204][193][211][197][210][160][211][208][197][197][196]    :  [206][207][210][205][193][204]  "
  99. 1080 rem    f       anzahl schiffe
  100. 1090 print" [198]5    : [193][206][218][193][200][204][160][211][195][200][201][198][198][197] :  3  "
  101. 1100 rem    f       musik             ein
  102. 1110 print" [198]7    : [205][213][211][201][203]          :  [197][201][206]"
  103. 1120 rem    crsr _  fuelsaeule        schnell
  104. 1130 print" [195][210][211][210] _: [198][213][197][204][211][197][213][204][197]      :  [211][195][200][206][197][204][204]"
  105. 1140 rem    return  start
  106. 1150 print" [210][197][212][213][210][206]: [211][212][193][210][212] "
  107. 1160 fort=0to30:next:a=peek(203)
  108. 1170 onagosub1430,1240,1200,1270,1340,1400
  109. 1180 ifa=1thenpokesi+24,15:goto1600
  110. 1190 goto1160
  111. 1200 cx=27:cy=20:gosub3120
  112. 1210 ifmu=1thenprint"[193][213][211]":mu=0:return:rem aus
  113. 1220 ifmu=0thenprint"[197][201][206]":mu=1:rem ein
  114. 1230 return
  115. 1240 cx=27:cy=21:gosub3120
  116. 1250 iffs=1thenprint"[204][193][206][199][211][193][205]":fs=0:return:rem langsam
  117. 1260 iffs=0thenprint"[211][195][200][206][197][204][204]":fs=1:return:rem schnell
  118. 1270 gr=gr+1:ifgr>4thengr=1
  119. 1280 cx=27:cy=17:gosub3120
  120. 1290 ifgr=1thenprint"[211][212][193][210][203]     ":rem stark
  121. 1300 ifgr=2thenprint"[211][195][200][215][193][195][200][160][160] ":rem schwach
  122. 1310 ifgr=3thenprint"[206][207][210][205][193][204]    ":rem normal
  123. 1320 ifgr=4thenprint"[211][195][200][215][193][197][195][200][197][210]":rem schwaecher
  124. 1330 return
  125. 1340 ls=ls+1:ifls>3thenls=1
  126. 1350 cx=27:cy=18:gosub3120
  127. 1360 ifls=1thenprint"[211][195][200][206][197][204][204] ":rem schnell
  128. 1370 ifls=2thenprint"[204][193][206][199][211][193][205] ":rem langsam
  129. 1380 ifls=3thenprint"[206][207][210][205][193][204]  ":rem normal
  130. 1390 return
  131. 1400 sh=sh+1:ifsh>15thensh=3
  132. 1410 cx=26:cy=19:gosub3120
  133. 1420 printshchr$(157)chr$(32):return
  134. 1430 print""
  135. 1440 fort=0to4
  136. 1450 print"                                     "
  137. 1460 next
  138. 1470 rem              joystick in port 1
  139. 1480 print"           [202][207][217][211][212][201][195][203][160][201][206][160][208][207][210][212][160]1       "
  140. 1490 fort=0to7
  141. 1500 print"                                     "
  142. 1510 next
  143. 1520 aw=173:ew=255:sw=1:s1=0:s2=2:gosub1560
  144. 1530 pokev+16,3:aw=0:ew=100:gosub1560
  145. 1540 pokev+0,0:pokev+2,0:pokev+16,0
  146. 1550 return
  147. 1560 rem schleife
  148. 1570 fork=awtoewstepsw:pokev+s1,k:pokev+s2,k
  149. 1580 fort=0to30:next:next
  150. 1590 return
  151. 1600 ifls=1thenpoke33004,40:poke33020,20
  152. 1610 ifls=2thenpoke33004,200:poke33020,100
  153. 1620 ifls=3thenpoke33004,100:poke33020,50
  154. 1630 ifgr=1thengr=30
  155. 1640 ifgr=2thengr=150
  156. 1650 ifgr=3thengr=70
  157. 1660 ifgr=4thengr=255
  158. 1670 poke33032,230:poke33033,249
  159. 1680 poke36611,  1:poke36607,8
  160. 1690 poke33156,ms :poke36860,5
  161. 1700 iffs=1thenpoke32978,10
  162. 1710 iffs=0thenpoke32978,50
  163. 1720 pokesi+2,2:pokesi+3,7
  164. 1730 ifmu=0thenpoke33152, 96:pokesi+24,15
  165. 1740 pokev+21,247
  166. 1750 poke56549,sp:poke36862,51
  167. 1760 sys32768:pokev+30,0:pokev+31,0
  168. 1770 ifri=1thenl1=5:l2=1:l3=-1
  169. 1780 ifri=0thenl1=1:l2=6:l3=1
  170. 1790 forla=l1tol2stepl3:ti$="000000"
  171. 1800 ax=peek(v+21):pokev+21,0
  172. 1810 onlagosub3520,3750,4020,4280,4550,4890
  173. 1820 pokev+21,ax
  174. 1830 pokex,xk(ri):pokey,yk(ri)
  175. 1840 poke36614,0:ifri=1thenpoke36614,mb
  176. 1850 cx=0 :cy=22:gosub3120
  177. 1860 print" [176][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  178. 1870 [143]     ships     time        score
  179. 1880 [153]" (NULL)(NULL)left$right$(NULL)(NULL):   (NULL)(NULL)right$(NULL)val:      (NULL)(NULL)len(NULL)(NULL)val:        (NULL)
  180. 1890 print" [173][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  181. 1900 cx=8 :cy=23:gosub3120:printsh;:gosub3150
  182. 1910 gosub3170:cx=31:gosub3120:printsc;:poke33028,gr
  183. 1920 poke251,0:pokev+30,0:pokev+31,0
  184. 1930 sys8*4096
  185. 1940 ifpeek(251)then2780
  186. 1950 poke250,ri
  187. 1960 a=peek(v+31):if(aand7)then2830
  188. 1970 a=peek(v+30)
  189. 1980 ifa=68thengosub2940
  190. 1990 ifaand128then2060
  191. 2000 if(aand7)then2830
  192. 2010 ifpeek(36862)>=250then2050
  193. 2020 if(peek(56321)and16)=0thengosub3080
  194. 2030 cx=18:cy=23:gosub3120:printmid$(ti$,3,2);
  195. 2040 print":"right$(ti$,2):goto1940
  196. 2050 poke53274,0:poke53280,0:poke33028,1:of=1:goto1940
  197. 2060 a=0:onlagoto2190,2070,2070,2070,2700,2080
  198. 2070 goto2000
  199. 2080 ri=1:pokev+14,0:pokev+15,0:poke36610,1:poke33038,40
  200. 2090 a=0:ifu=1then2000
  201. 2100 gosub3150
  202. 2110 poke648,4:forh=0to5 :fori=7to18
  203. 2120 cx=15:cy=i:gosub3120
  204. 2130 print"                       "
  205. 2140 cx=15:cy=i:gosub3120
  206. 2150 print"                       "
  207. 2160 cx=15:cy=i:gosub3120
  208. 2170 print"[158]                       "
  209. 2180 next:next:u=1:poke648,192:gosub3170:goto2000
  210. 2190 ifpeek(36610)<>1then2000
  211. 2200 pokev+23,176:pokev+29,128:poke50174,200
  212. 2210 pokev+12,176:pokev+13,90
  213. 2220 poke33038,45:pokev+21,195:pokesi+24,0
  214. 2230 sys52736:poke32809,162:poke32810,128
  215. 2240 sys32768:pokev+40,2:pokev+32,0
  216. 2250 pokev+26,0:fori=0to62:poke62144+i,0:next
  217. 2260 fori=0to3000:next:gosub3150
  218. 2270 fori=0to2:cx=0:cy=22+i:gosub3120
  219. 2280 print"                                       ";
  220. 2290 printchr$(20)" ";:next
  221. 2300 sys828:pokev+45,1:pokev+46,8
  222. 2310 poke50172,203:poke50173,203:pokev+43,6
  223. 2320 pokev+44,6:pokev+8,152:pokev+9,194
  224. 2330 pokev+11,194:pokev+10,216:pokev+21,243:poke646,6
  225. 2340 fori=0to62step3:poke62144+i,255
  226. 2350 forj=0to50:nextj,i
  227. 2360 fori=0to4:cx=16:cy=18+i:gosub3120
  228. 2370 print"q       q";:next
  229. 2380 fori=194to220step2:pokev+9,i:pokev+11,i
  230. 2390 forj=0to50:nextj,i
  231. 2400 fori=0to1:cx=16:cy=23+i:gosub3120
  232. 2410 print"q       q";:next
  233. 2420 pokev+21,195:pokev+23,128:pokev+29,176
  234. 2430 poke50173,195:poke50172,195
  235. 2440 pokev+8,141:pokev+10,189:pokev+9,186
  236. 2450 pokev+11,186:pokev+21,243
  237. 2460 cx=17:cy=17:gosub3120:print"       ";
  238. 2470 fori=0to29:pokev+8,141-i:pokev+10,189+i
  239. 2480 forj=0to20:nextj,i
  240. 2490 fori=0to3000:next
  241. 2500 fori=peek(v)to176stepsgn(176-peek(v))
  242. 2510 pokev,i:pokev+2,i
  243. 2520 forj=0to20:nextj,i:fori=0to1000:next
  244. 2530 fori=peek(v+1)to246:pokev+1,i:pokev+3,i
  245. 2540 forj=0to20:nextj,i
  246. 2550 sp=sp-10:le=le+1:ifsp<=35thensp=sp+10
  247. 2560 fori=0to3000:next:pokev+21,0:printchr$(142)
  248. 2570 print"[147]       herzlichen glueckwunsch !!
  249. 2580 [153]"           sie haben ihre
  250. 2590 print"         mission erfolgreich
  251. 2600 [153]"              beendet !!
  252. 2610 print"      ab jetzt wird's schneller !
  253. 2620 [153]"               level :"le
  254. 2630 [129]i[178]0[164]5000:[130]
  255. 2640 [141]3190
  256. 2650 [153][199](14)
  257. 2660 [151]v[170]21,243
  258. 2670 [151]33038,40:[151]36610,0
  259. 2680 ri[178]0:[137]1750
  260. 2690 [137]2000
  261. 2700 [141]3150:[151]v[170]14,0:[151]v[170]15,0:[151]v[170]12,255
  262. 2710 [129]z[178]9[164]13:cx[178]31:cy[178]z:[141]3120:[153]" "
  263. 2720 [151]si[170]18,33:[151]si[170]18,32
  264. 2730 [129]i[178]0[164]300:[130]:[130]
  265. 2740 cx[178]36:cy[178]6:[141]3120:[153]" "
  266. 2750 [129]z[178]7[164]16:cx[178]35:cy[178]z:[141]3120:[153]"  ":[151]si[170]18,33
  267. 2760 [151]si[170]18,32:[129]i[178]0[164]300:[130]:[130]
  268. 2770 cx[178]36:cy[178]z:[141]3120:[153]"  ":[141]3170:[137]2010
  269. 2780 [139]ri[178]1[175]la[178]1[167]1940
  270. 2790 sc[178]sc[170]((240[171][197](ti$))[172]10)
  271. 2800 cx[178]30:cy[178]23:[141]3120:[153]"(NULL)len(NULL)(NULL)valclose: "sc;:[151]251,0
  272. 2810 [143] score
  273. 2820 [130]:[137]1770
  274. 2830 [143] ruettel routine
  275. 2840 kr[178][194](v[170]17):[141]3150:[151]si[170]11,129:[151]si[170]8,50
  276. 2850 [151]si[170]12,16[172] 1[170]5
  277. 2860 [151]si[170]13,16[172] 1[170]1
  278. 2870 [129]i[178]1[164]10:[151]v[170]17,23:[151]si[170]11,129:[129]t[178]0[164]50:[130]
  279. 2880 [151]v[170]17,16:[151]si[170]11,128:[129]t[178]0[164]50:[130]:[130]
  280. 2890 [151]v[170]17,kr:[151]si[170]11,0
  281. 2900 [151]36862,51
  282. 2910 [151]si[170]12,71:[151]si[170]13,25:sh[178]sh[171]1:ti$[178]"000000"
  283. 2920 [139]sh[178]0[167]sh[178]3:[137]3010
  284. 2930 [137]1830
  285. 2940 [141]3150:y1[178][194](y):[151]si[170]5,255:[129]i[178]0[164]500:[130]
  286. 2950 [139]of[178]1[167]of[178]0:[151]53274,241:[151]33028,gr:[151]36862,250
  287. 2960 [129]i[178][194](36862)[164]51[169][171]1:[151]36862,i:[151]si[170] 8,i[171]51
  288. 2970 [151]si[170]11,17:[151]si[170]11,18:[130]
  289. 2980 [151]y,y1[171]1:[141]3180:[129]xy[178]0[164]100
  290. 2990 [130]:[139][194](v[170]30)[167]y1[178]y1[171]1:[137]2980
  291. 3000 [141]3170:[151]si[170]11,0:a[178]0:[151]si[170]5,77:[142]
  292. 3010 [158]52736:[151]v[170]21,0:[151]53280,0:[151]si[170]4,0
  293. 3020 [153][199](147):cx[178]15:cy[178]12:[141]3130:[153]"chr$atn(NULL)val (NULL)(NULL)val(NULL)"
  294. 3030 [139]sc[177]hs[167]hs[178]sc
  295. 3040 [153]"         (NULL)len(NULL)(NULL)val : "sc:[143] score
  296. 3050 [153]"    left$right$chr$left$ (NULL)len(NULL)(NULL)val : "hs:[143] high -
  297. 3060 [129]i[178]0[164]4000:[130]:ri[178]0:sc[178]0
  298. 3070 [151]v[170]21,3:co[178]1:sp[178]100:[137]830
  299. 3080 [139](([194](v[170]21))[175]4)[178]4[167]3100
  300. 3090 [151]v[170]21,[194](v[170]21)[176]4:[137]3110
  301. 3100 [151]v[170]21,[194](v[170]21)[175]251
  302. 3110 [142]
  303. 3120 [143] cursor positionieren
  304. 3130 [151]211,cx:[151]214,cy:[158]58640:[142]
  305. 3140 [143] raumschiff festhalten
  306. 3150 [158]33217:[151]v[170]21,[194](v[170]21)[175]207:[142]
  307. 3160 [143] raumschiff loslassen
  308. 3170 [158]33204:[151]36608,50:[142]
  309. 3180 [151]v[170]1,y1:[151]v[170]3,y1:[151]v[170]5,y1:[151]v[170]7,y1:[142]
  310. 3190 [143] sprites initialisieren
  311. 3200 [151]v[170]31, 0:[151]33048,4
  312. 3210 [151]v[170]39, 7:[151]v[170]40 ,2
  313. 3220 [151]v[170]41, 1:[151]v[170]42 ,0
  314. 3230 [151]v[170]43, 5:[151]v[170]44 ,5
  315. 3240 [151]v[170]32, 0:[151]v[170]33 ,0
  316. 3250 [151]v[170]23,48:[151]v[170]27 ,240
  317. 3260 [151]v[170]29,64:[151]33052,84
  318. 3270 [129]t[178]0[164]62:[151]61632[170]t,0:[130]
  319. 3280 [129]t[178]0[164]23:[151]61632[170]t,255:[130]
  320. 3290 [151]50168,192:[151]50169,193
  321. 3300 [151]50170,194:[151]50171,195
  322. 3310 [151]50172,196:[151]50173,196
  323. 3320 [151]50174,197:[151]50175,198:[151]36610,0
  324. 3330 [151]si[170] 2,  2:[151]si[170] 3,  7:u[178]0
  325. 3340 [151]si[170] 5, 77:[151]si[170]19,0:[151]si[170]20,244
  326. 3350 [151]si[170]15, 30:[151]36614,0:[151]v[170]16,0
  327. 3360 [151]si[170]6,24:[151]si[170]24,15:[142]
  328. 3370 [135]ze:[153][163]i[173]8)[199](ze);:c[178]c[170]1:a$[178]a$[170][199](ze)
  329. 3380 [142]
  330. 3390 [153]"for (len) 1984  peek(NULL) "
  331. 3400 [153]"  "b$:[142]
  332. 3520 [143] ** labyrinthe **
  333. 3530 [153]"load                  uqqqs
  334. 3540 print"                uqqt vqqs
  335. 3550 [153]"               uqt     vqs
  336. 3560 print"              uqt       vqs
  337. 3570 [153]"              qt         vq
  338. 3580 print"             uq           qs
  339. 3590 [153]"             qt           vq
  340. 3600 print"            uq             qs
  341. 3610 [153]"qqqqqqqqqqqqqt             vqqqqqqqqqqqq";
  342. 3620 [153]"ababfapldfabq               qflolplfeabf";
  343. 3630 [153]"cdcd  ab  cd                  fplob  cd ";
  344. 3640 [153]"      cd                       abf      ";
  345. 3650 [153]"                                        ";
  346. 3660 [153]"gh             gh       gh          gh  ";
  347. 3670 [153]"ij@kij  kij@q @ij       ijkkq      @ij@ ";
  348. 3680 [153]"qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqq";
  349. 3690 [151]36614,0:xk(0)[178]174:yk(0)[178]130
  350. 3700 [151]v[170]8,248:[151]v[170]9,139:[151]v[170]12,0
  351. 3710 [151] v[170]13,0:[151]v[170]10,120:[151]v[170]11,139
  352. 3720 [151]v[170]23,176:[151]v[170]29,192
  353. 3730 [151] 50175,198:[151]v[170]14,164:[151]v[170]15,73
  354. 3740 xk(1)[178]54:yk(1)[178]151:mb[178]15:[151]v[170]46,8:[142]
  355. 3750 [153]"loadollqlpolqloqpllllllloqllpllolqllplloqlll";
  356. 3760 [153]"lollplloqlloqollllqllolpllllolqplllqolll";
  357. 3770 [153]"olopllqlollplllollqllpollqllqoplllllpoll";
  358. 3780 [153]"loqllqlllopqlllplqllpqlollqlllollllpllol";
  359. 3790 [153]"llollpollpolllpolqlpllqpoqllqlpollpolllo";
  360. 3800 [153]"lllopllopllolpllolpollpllolqlplpolllollp";
  361. 3810 [153]"lllqllqlloqllqlpllqllplqlpolllpllollloll";
  362. 3820 [153]"efabeqabpllpllpolqlabefqabfabfeabfeabfea";
  363. 3830 [153]"  cd  cdfabollolobfcd   cd     cd  cd  c";
  364. 3840 [153]"         cdablplo        close
  365. 3850 print"           cdfole                     ";
  366. 3860 print"  ijk           ab     ijqj@ij     ij@gh@ ";
  367. 3870 print"lqollq @gh[160]   cd    kolpolll     oloplql";
  368. 3880 print"lllolqllij@        ilplllopl     lllolll";
  369. 3890 print"lllpolqplll@      illollllol[168][168][168][168][168]lllpoll";
  370. 3900 print"llplqopqlllpl@ gh@pollolllpllllllllpllol";
  371. 3910 print"lpollqolllplll@ijlqlolpoqpllllolplpolllo";
  372. 3920 print"pllolllolqollqpllqlqpolplollllppllllolll";
  373. 3930 print"olqlolllollolplqllqplqoollolllpollllpoll";
  374. 3940 print"lollpolllolpoqolllpollpolllllpllollpllol";
  375. 3950 print"llopllolqlolloqolllllplllllllllllollllll";
  376. 3960 print"llpolllolllolllpolllpollllllllllllllllll"
  377. 3970 poke36614,0:xk(0)=26:yk(0)=116:xk(1)=59
  378. 3980 yk(1)=117:mb=15:pokev+46,0
  379. 3990 pokev+8,64:pokev+9,106:pokev+10,208
  380. 4000 pokev+11,106:pokev+14,0:pokev+15,0
  381. 4010 pokev+12,245:pokev+13,150:return
  382. 4020 print"[147][156]abefabapolploqlplollpoplllplqlloplqlqopl";
  383. 4030 print"cd  cd oqpolpoqollopllollpollqlloqlqlqol";
  384. 4040 print"       folplpab q[156]flabflolllolqlababababo";
  385. 4050 print"       gppolb     fcd fabnlpollcdcd  c l";
  386. 4060 print"gh     ioopom            npllom         ";
  387. 4070 print"ij@    appob             fllom          ";
  388. 4080 print"oqlj    flpj       gh    fllom          ";
  389. 4090 print"lopb    iplb    q[156]ijij     lllm          ";
  390. 4100 print"lpoj    aolj    oqplpm    flm           ";
  391. 4110 print"plqlj    pob    lplpol     lm           ";
  392. 4120 print"abfef    old   nqlpllm     nm
  393. 4130 [153]"cd       ab    nlpobfe    nm            ";
  394. 4140 [153]"close        cd   nqllf       lm            ";
  395. 4150 [153]"             golbf       nlmgh          ";
  396. 4160 [153]"     gh      @plm     @ij@omij         l";
  397. 4170 [153]"     ij@gh @ipom    iqlolllolqlqqm    nq";
  398. 4180 [153]"qlpqolllij@oplpm    qclrbfef ab e ab     ab";
  399. 4190 [153]"lpllplqplqplplpm               cd     cd";
  400. 4200 [153]"polqlopqlpqqolqm                        ";
  401. 4210 [153]"lllqlloqplqlpollgh      gh  gh     gh gh";
  402. 4220 [153]"llllqllolllpllolij@ qclr  @ij@ ij @ij ij@ij";
  403. 4230 [153]"ollllllpolpllllollllllllllllllllllllllll";
  404. 4240 [151]36614,0:xk(0)[178]30:yk(0)[178]65:[151]v[170]12,18
  405. 4250 [151]v[170]13,160:[151]v[170]14,0:[151]v[170]8,152
  406. 4260 [151]v[170]10,184:[151]v[170]11,175:[151]v[170]15,0
  407. 4270 xk(1)[178]57:yk(1)[178]102:mb[178]15:[151]v[170]9,70:[142]
  408. 4280 [153]"loadcontabfbfeaolbabolqopqoqllqpllqqlplqobabf ef";
  409. 4290 [153]"cd     ab cdaolplqlolqlolqllpbab  cd
  410. 4300 print"              fqllabolqpllqpl
  411. 4310 [153]"gh  gh         f qcontcdaopolqplb         gh";
  412. 4320 [153]"ij@ ij@   @          plqopff     @@ @ ij";
  413. 4330 [153]"qolqpllqlpll         flqqo@     nqpqoqlp";
  414. 4340 [153]"lplbabcd   aqcont         abflo@gh   pqqlopq";
  415. 4350 [153]"plb cd                   faoij   faoqlol";
  416. 4360 [153]"olj  close                    nqlbclose    qoqpo";
  417. 4370 [153]"lolj    @        qcont ij     nlf    @ilppql";
  418. 4380 [153]"qpol   npjghclose   nollpj    lf    iloppolq";
  419. 4390 [153]"pfab    flpj     noplb   @l@    alppoqol";
  420. 4400 [153]"b cd     nlqqcont    npab    pql@    faqloql";
  421. 4410 [153]"m        @olj    pfcd   nolllm     alpqq";
  422. 4420 [153]"j       @olob   nlj    nllolf    ghipoll";
  423. 4430 [153]"lj     iolol    lllj    flpo     ijplqol";
  424. 4440 [153]"qlqpolqlpbab    llll    @plf    @llqllql";
  425. 4450 [153]"abfaqobff       oplf   @plf    nllqqlqqo";
  426. 4460 [153]"cd  ab         npab    abf     iolqllqlp";
  427. 4470 [153]"           gh@@pbcd          gilpqllqqlo";
  428. 4480 [153]"gh        @ijopb             iopllqqqlqq";
  429. 4490 [153]"ij@   close nllolloj  gh  @   @ijqlopolqqlll"
  430. 4500 [151]36614,0:xk(0)[178]34:yk(0)[178]196:[151]v[170]12,35
  431. 4510 [151]v[170]13,160:[151]v[170]14,0:[151]v[170]8,120
  432. 4520 [151]v[170]9,106:[151]v[170]10,160:[151]v[170]11,80
  433. 4530 [151]v[170]15,0:[151]v[170]46,0
  434. 4540 [151]v[170]46,0:xk(1)[178]59:yk(1)[178]56:mb[178]15:[142]
  435. 4550 [153]"loadforjcd  alpqpoqllplqlbabaoqj
  436. 4560 print"bgh  iqoplqfefab   cd foqj             i";
  437. 4570 print"jij@lqploqb   cd       eq[129]pj           ib";
  438. 4580 print"qlolqloab                alj         ib ";
  439. 4590 print"llqolpfcd                 alj[178][178][178][178][178][178][178]ib  ";
  440. 4600 print"plqplb      ij     ij@     al[162][162][162][162][162][162][162]b   ";
  441. 4610 print"oqpolj      alqbobq[129]faoj     apj   ib[179]   ";
  442. 4620 print"lplqoq@gh    aojcd   eoj     qlj ib[171][179]   ";
  443. 4630 print"polqplpij     pb      eoq[129]    abqpb [171][179]   ";
  444. 4640 print"lloloplqlj    aj       poj     q   [171][179]   ";
  445. 4650 print"qlpoqoioab    nb       flo     q   [171][179]   ";
  446. 4660 print"qpoqoqobcd    lj  q[129]    @bf     q   [171][179]   ";
  447. 4670 print"pllqplb      aopqlb    lj      q   [171][179]   ";
  448. 4680 print"oqllolj gh      f      al    ghq   [171][179]   ";
  449. 4690 print"abfefaqjij           ijil    ijlo  [171][179]   ";
  450. 4700 print"cd    lpll@@        @loof    olopj [171][179]   ";
  451. 4710 print"      abpqlojij@   ipqbf    @qopolj[171][179]   ";
  452. 4720 print"      cd e  allplqlbab     @olplqolj[179]   ";
  453. 4730 print"gh                  cd     appoqlpqlj   ";
  454. 4740 print"ij@                        iolqqlolqlj  ";
  455. 4750 print"lpqj@ijgh                ghaloqpoqolqpj ";
  456. 4760 print"pllqlolij@[164][164][164][164][164][164][164][164][164][164][164][164][164][164]qijiqlooqlpoplqj"
  457. 4770 poke36614,0:xk(0)=43:yk(0)=180:pokev+12,0
  458. 4780 pokev+13,0:pokev+14,145:pokev+8,216
  459. 4790 pokev+9,74:pokev+10,168:pokev+11,102
  460. 4800 poke50175,199:pokev+23,48:pokev+29,64
  461. 4810 pokev+15,123:xk(1)=54:yk(1)=136:mb=15
  462. 4820 onrigoto4840
  463. 4830 pokev+46,1:return
  464. 4840 forz=9to13:cx=31:cy=z:gosub3120:print" ":next
  465. 4850 cx=36:cy=6 :gosub3120:print" "
  466. 4860 cx=36:cy=17:gosub3120:print" "
  467. 4870 forz=7to16:cx=35:cy=z:gosub3120:print"  "
  468. 4880 next:pokev+46,0:return
  469. 4890 print"[147][158]opolqllpllloqplopllqlrrrrrrrrllqlpllqlop";
  470. 4900 print"poqolqpolqlrrrrrrrrrrrq[158][183][183][183][183]q[158]rrrrrrrrrrrr";
  471. 4910 print"lqlbf faollb[183][183][183][183][183][183][183][183][183][183]      [183][183][183][183][183][183][183][183][183][183][183]a";
  472. 4920 print"olb     foq[181]                           [182]";
  473. 4930 print"ab       ao[181]                           [182]";
  474. 4940 print"cd        p[181]                           [182]";
  475. 4950 print"          r[181]     rrrrrq    q[158]rrrrr      [182]";
  476. 4960 print"     r    r[181]   r    ij      ij    r    [182]";
  477. 4970 print"gh   r    r[181]   r  rrrrrr  rrrrrr  r    [182]";
  478. 4980 print"ij@ ir    r[181]   r  rpqqor  rpqqor  r    [182]";
  479. 4990 print"polqlr    r[181]   rjiroqqprjiroqqprjir    [182]";
  480. 5000 print"olollr    r[181]   roprqopqroprqopqropr    [182]";
  481. 5010 print"pbcdar    r[181]   rporqpoqrporqpoqrpor    [182]";
  482. 5020 print"b    r    r[181]   rbarpqqorbarpqqorbar    [182]";
  483. 5030 print"[181]         r[181]   r [160]roqqpr  roqqpr  r    [182]";
  484. 5040 print"[181]         r[181]   r[160] rrrrrr  rrrrrr  r    [182]";
  485. 5050 print"[181]         r[181]   r    ab      ab    r    [182]";
  486. 5060 print"[181]   rrrrrrr[181]     rrrrrrr  rrrrrrr      [182]";
  487. 5070 print"[181]                                      [182]";
  488. 5080 print"[181]                                      [182]";
  489. 5090 print"j                   [160][160]                 i";
  490. 5100 print"lqopolqopqolqoqlplllollqopolllqoqplllqoq";
  491. 5110 print"[145][145][145][145]"
  492. 5120 poke36614,0:xk(0)=25:yk(0)=96:xk(1)=25
  493. 5130 yk(1)=96:pokev+12,0:pokev+13,0
  494. 5140 pokev+8,240:pokev+9,60:pokev+10,201
  495. 5150 pokev+11,60:poke50175,200:pokev+15,59
  496. 5160 pokev+23,48+128:pokev+29,192:mb=0:poke33038,46
  497. 5170 poke36610,1:pokev+14,200:pokev+21,243:return
  498. 5180 rem datas    *******************************
  499. 5190 data120,169, 49,141, 20,  3,169,234,141, 21
  500. 5200 data  3,169,  0,141, 26,208, 88, 96,120,169
  501. 5210 data 51,133,  1,169,  0,133, 95,133, 90,133
  502. 5220 data 88,169,208,133, 96,169,240,133, 89,169
  503. 5230 data224,133, 91, 32,191,163,169, 55,133,  1
  504. 5240 data 88, 96
  505. 5250 rem daten fuer sprites *********************
  506. 5260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  507. 5270 data 64,126,  2, 32,195,  4, 17,129,136, 11
  508. 5280 data  0,208,  6,  0, 96, 62,  0,124,122,  0
  509. 5290 data 94,119,129,238,120,255, 30, 30, 60,120
  510. 5300 data  7,129,224,  0,255
  511. 5310 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  512. 5320 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  513. 5330 data  0,  0, 60,  0,  0,126,  0,  0,255,  0
  514. 5340 data  1,255,128,  1,255,128,  1,255,128,  0
  515. 5350 data126,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 13 x 0
  516. 5360 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  517. 5370 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  518. 5380 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  519. 5390 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0:rem 15 x 0
  520. 5400 data 12,  0, 48, 24,  0, 24, 48,  0, 12,120
  521. 5410 data  0, 30,252,  0, 63,192,  0,  3,192,  0
  522. 5420 data  3,192,  0,  3,192,  0,  3,192,  0,  3
  523. 5430 data192,  0,  3,192,  0,  3,192,  0,  3,192
  524. 5440 data  0,  3,192,  0,  3,255,255,255,225,108
  525. 5450 data 55,225,109,247,239,108,247,227,108,247
  526. 5460 data206,  9,225,206,  8, 33,255,255,255,240
  527. 5470 data  0, 15,240,  0, 15,240,  0, 15,  2,  0
  528. 5480 data 64,130,  0, 65,130,  0, 65,194,  0, 67
  529. 5490 data 66,  0, 66, 98,  0, 70, 34,  0, 68, 50
  530. 5500 data231, 76, 18,189, 72, 27,129,216,136,129
  531. 5510 data 17,207,129,243, 96,129,  6, 63,129,252
  532. 5520 data  0,129,  0,255,129,255,  0,129,  0,  3
  533. 5530 data129,192, 14,129,112, 56,129, 28,224,255
  534. 5540 data  7,  0,  0,248,  0,  1,252,  0,  3,  6
  535. 5550 data  0,  6,  3,  0,  6,  3,  0,  6,  3,  0
  536. 5560 data  6,  3,  0,  6,  3,  0,  3,  6,  0,  3
  537. 5570 data252,  0,  7,248,  0, 15,  0,  3,158,  0
  538. 5580 data  3,252,  0,  9,248,  0,125,240,  0, 63
  539. 5590 data224,  0, 63,192,  0, 31,128,  0, 15,  0
  540. 5600 data  0, 14,  0,  0,  0,  0,  0,  3,195,192
  541. 5610 data 15,126,240, 15,255,240,  3,  0,192,  3
  542. 5620 data126,192, 15, 66,240, 15,126,240,  3,  0
  543. 5630 data192,  3,126,192, 15,  0,240, 15, 94,240
  544. 5640 data  3, 82,192,  3,114,192, 15,  0,240, 15
  545. 5650 data 78,240,  3, 74,192,  3,126,192, 15,  0
  546. 5660 data240, 15,255,240,  3,255,192
  547. 5670 data200,193,210,193,204,196, 32,194,197,201
  548. 5680 data206,197, 32, 38, 32,193,210,206,197, 32
  549. 5690 data202,193,206,211,197,206
  550. 5700 rem daten fuer die zeichen *****************
  551. 5710 data  8,  8, 28, 28, 62,126,127,255,127, 63
  552. 5720 data 31, 15,  3,  7,  7,  3,255,254,252,240
  553. 5730 data248,240,240,224,  0,  1,  1,  0,  0,  0
  554. 5740 data  0,  0,224,128,192,128,128,  0,  0,  0
  555. 5750 data252,110, 60, 24, 16,  0,  0,  0,252,126
  556. 5760 data124, 56, 56, 16, 16, 16,  0,  0,  0,  1
  557. 5770 data  1,  3,  3,  7,  0,  0,  0,  0,  0,128
  558. 5780 data128,192,  4, 15, 15, 31, 31, 63, 63,255
  559. 5790 data192,224,224,240,240,248,252,255,  8,  8
  560. 5800 data  8, 28, 28, 62,126,255, 46,127,223,126
  561. 5810 data239,251,191,237,192,224,112,248,252, 76
  562. 5820 data 76,196,  3,  6, 14, 31, 63, 50, 51, 34
  563. 5830 data 63, 31,143,207,199,225,240,252,252,248
  564. 5840 data225,195,207,143,143, 63,255,255,255,255
  565. 5850 data255,255,255,255,  0,126,126,102,102,126,126,0
  566. 5860 rem ** maschinenroutine **
  567. 5870 data120,169, 32,141, 20,  3,169,128,141
  568. 5880 data 21,  3,169,129,141, 26,208,173,254
  569. 5890 data143,141, 18,208,173, 17,208, 41,127
  570. 5900 data141, 17,208, 88, 96,173, 25,208,141
  571. 5910 data 25,208, 48, 10, 32, 95,128,173, 13
  572. 5920 data220, 88, 76, 49,234,173,253,143,201
  573. 5930 data  1,240,19,169,  0,141, 32,208,173
  574. 5940 data254,143,141, 18,208,169,  1,141,253
  575. 5950 data143, 76,188,254,173,252,143,141, 32
  576. 5960 data208,169,255,141, 18,208,169,  2,141
  577. 5970 data253,143, 76,188,254,173,  1,220, 41
  578. 5980 data  1,208,101,173,  1,220, 41,  2,208                       
  579. 5990 data 91,173,  1,220, 41,  4,208, 78,173
  580. 6000 data  1,220, 41,  8,208, 74,165,248,141
  581. 6010 data  0,208,141,  2,208,141,  4,208,141
  582. 6020 data  6,208,165,249,141,  1,208,141,  3
  583. 6030 data208,141,  5,208,141,  7,208,173,  6
  584. 6040 data143,141, 16,208,206,  0,143,240, 55
  585. 6050 data206,  1,143,240, 92,206,  5,143,240
  586. 6060 data 34,173,  2,143,208, 92,173, 30,208
  587. 6070 data234,234, 32, 21,129,234,234,234,234
  588. 6080 data234, 32,125,129, 96, 76, 82,129, 76
  589. 6090 data 89,129, 76, 77,129, 76, 72,129,238
  590. 6100 data254,143,169,100,141,  5,143, 76,172
  591. 6110 data128,173,  3,143, 73,  1,141,  3,143
  592. 6120 data208, 16,173, 21,208, 41,207,141, 21
  593. 6130 data208,169, 90,141,  0,143, 76,162,128
  594. 6140 data173, 21,208,  9, 48,141,21,208,169
  595. 6150 data 45,141,  0,143, 76,162,128,169,150
  596. 6160 data141,  1,143,234,234, 76,167,128,238
  597. 6170 data 40,208, 76,177,128, 41,  8,165,248
  598. 6180 data201, 24,240, 20,201, 64,208, 34,173
  599. 6190 data 16,208, 41,  3,240, 27,198,248,165
  600. 6200 data250,208, 21, 76, 60,129,173, 16,208
  601. 6210 data 41,  3,208, 11,230,248,165,250,240
  602. 6220 data  5,169,  1,133,251,234, 96,169,  3
  603. 6230 data141,255,127, 96,230,249, 76,102,128
  604. 6240 data198,249, 76,109,128,230,248,240, 14
  605. 6250 data 76,116,128,198,248,165,248,201,255
  606. 6260 data240, 14, 76,123,128,173,  6,143,  9
  607. 6270 data 15,141,  6,143, 76,116,128,173,  6
  608. 6280 data143, 41,240,141,  6,143, 76,123,128
  609. 6290 data234,234,234,206,255,142,240,  1, 96
  610. 6300 data169,  7,141,255,142,238,254,142,174
  611. 6310 data254,142,189,  0,197,141,  0,212,189
  612. 6320 data  0,198, 41,127,141,  1,212,189,  0
  613. 6330 data198, 41,128,208,  6,169, 64,141,  4
  614. 6340 data212, 96,169, 64,141,  4,212,169, 65
  615. 6350 data141,  4,212, 96,120,169,128,141, 42
  616. 6360 data128,169, 95,141, 41,128, 88, 96,120
  617. 6370 data169,129,141, 42,128,169,125,141, 41
  618. 6380 data128, 88, 96
  619. 6390 rem    t  a  k  t    1 ************
  620. 6400 data 27,132, 27,  4, 55,136, 39,134
  621. 6410 data 27,132, 27,  4, 55,136, 39,134
  622. 6420 data 27,132, 27,  4, 55,136, 39,134
  623. 6430 data 27,132,226,132, 39,134, 55,136
  624. 6440 rem    t  a  k  t    2 ************
  625. 6450 data 27,132, 27,  4, 55,136, 39,134
  626. 6460 data 27,132, 27,  4, 55,136, 39,134
  627. 6470 data 27,132, 27,  4, 55,136, 39,134
  628. 6480 data 27,132,226,132, 39,134, 55,136
  629. 6490 rem    t  a  k  t    3 ************
  630. 6500 data 27,132, 27,  4, 55,136, 39,134
  631. 6510 data 27,132,226,132, 39,134, 55,136
  632. 6520 data169,131,169,  3, 81,135,123,133
  633. 6530 data169,131,156,132,123,133, 81,135
  634. 6540 rem    t  a  k  t    4 ************
  635. 6550 data 66,131, 66,  3,133,134,226,132
  636. 6560 data 66,131, 81,135,226,132,133,134
  637. 6570 data 27,132, 27,  4, 55,136, 39,134
  638. 6580 data 27,132,226,132, 39,134, 55,136
  639. 6590 rem    t  a  k  t    5 ************
  640. 6600 data 27,132, 27,  4, 55,136, 39,134
  641. 6610 data 27,132, 27,  4, 55,136, 39,134
  642. 6620 data 27,132, 27,  4, 55,136, 39,134
  643. 6630 data 27,132,226,132, 39,134, 55,136
  644. 6640 rem    t  a  k  t    6 ************
  645. 6650 data 27,132, 27,  4, 55,136, 39,134
  646. 6660 data 27,132, 27,  4, 55,136, 39,134
  647. 6670 data 27,132, 27,  4, 55,136, 39,134
  648. 6680 data 27,132,226,132, 39,134, 55,136
  649. 6690 rem    t  a  k  t    7 ************
  650. 6700 data 27,132, 27,  4, 55,136, 39,134
  651. 6710 data 27,132,226,132, 39,134, 55,136
  652. 6720 data169,131,169,  3, 81,135,123,133
  653. 6730 data169,131,156,132,123,133, 81,135
  654. 6740 rem    t  a  k  t    8 ************
  655. 6750 data 66,131, 66,  3,133,134,226,132
  656. 6760 data 66,131, 81,135,226,132,133,134
  657. 6770 data 66,131, 66,  3,133,134,226,132
  658. 6780 data 66,131, 81,135,226,132,133,134
  659. 6790 rem    t  a  k  t    9 ************
  660. 6800 data226,132,226,  4,196,137, 81,135
  661. 6810 data226,132,226,  4,196,137, 81,135
  662. 6820 data226,132,226,  4,196,137, 81,135
  663. 6830 data226,132, 39,134, 81,135,196,137
  664. 6840 rem    t  a  k  t   10 ************
  665. 6850 data226,132,226,  4,196,137, 81,135
  666. 6860 data226,132,226,  4,196,137, 81,135
  667. 6870 data226,132,226,  4,196,137, 81,135
  668. 6880 data226,132, 39,134, 81,135,196,137
  669. 6890 rem    t  a  k  t   11 ************
  670. 6900 data 39,134, 39,  6, 78,140, 56,137
  671. 6910 data039,134,081,135,056,137,078,140
  672. 6920 data123,133,123,  5,247,138, 55,136
  673. 6930 data123,133,232,134,055,136,247,138
  674. 6940 rem    t  a  k  t   12 ************
  675. 6950 data226,132,226,  4,196,137, 81,135
  676. 6960 data226,132, 39,134, 81,135,196,137
  677. 6970 data226,132,226,  4,196,137, 81,135
  678. 6980 data226,132, 39,134, 81,135,196,137
  679. 6990 rem    t  a  k  t   13 ************
  680. 7000 data226,132,226,  4,196,137, 81,135
  681. 7010 data226,132,226,  4,196,137, 81,135
  682. 7020 data226,132,226,  4,196,137, 81,135
  683. 7030 data226,132, 39,134, 81,135,196,137
  684. 7040 rem    t  a  k  t   14 ************
  685. 7050 data226,132,226,  4,196,137, 81,135
  686. 7060 data226,132,226,  4,196,137, 81,135
  687. 7070 data226,132,226,  4,196,137, 81,135
  688. 7080 data226,132, 39,134, 81,135,196,137
  689. 7090 rem    t  a  k  t   15 ************
  690. 7100 data 39,134, 39,  6, 78,140, 56,137
  691. 7110 data 39,134, 81,135, 56,137, 78,140
  692. 7120 data123,133,123,  5,247,138, 55,136
  693. 7130 data123,133,232,134, 55,136,247,138
  694. 7140 rem    t  a  k  t   16 ************
  695. 7150 data226,132,226,  4,196,137, 81,135
  696. 7160 data226,132, 39,134, 81,135,196,137
  697. 7170 data 27,132, 27,  4, 55,136, 39,134
  698. 7180 data 27,132,226,132, 39,134, 55,136
  699. 7190 :
  700. 7200 data120,169, 50,141,  8,212,141,  1,212,169
  701. 7210 data  3,141,  3,212,169, 17,141, 12,212,141
  702. 7220 data  5,212,169, 32,141, 11,212,169, 33,141
  703. 7230 data 11,212,169,242,141,  6,212,169,114,141
  704. 7240 data 13,212,169, 15,141, 24,212,169, 16,141
  705. 7250 data  4,212,169,129,141,  4,212,173, 32,208
  706. 7260 data 72,173, 33,208, 72,162,  2,134,  2,162
  707. 7270 data128,160,255,238, 32,208,238, 33,208,173
  708. 7280 data 24,212, 73, 15,141, 24,212,136,208,239
  709. 7290 data202,208,234,198,  2,208,228, 88,169,  0
  710. 7300 data141,  4,212,141, 11,212,141, 24,212,104
  711. 7310 data141, 33,208,104,141, 32,208, 96
  712. 7320 data169,  4,141,136,  2,169,131,141,  2,  3
  713. 7330 data169,164,141,  3,  3,  0,  0,172,  1,  0
  714. 7340 data  2, 80,130,  1,  1,  3,172,110, -1,  0
  715. 7350 data  2, 42, 42,42, 32,28, 54, 53, 49, 48
  716. 7360 data 32,158, 42, 42, 42,254,172, -1,  0,  2
  717. 7370 data130, 80, -1,  1,  3,173,255,  1,  0,  2
  718. 7380 data  0, 70
  719.